home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / tcp / hserv.lha / hserv / cgi-bin / testArgs.r < prev    next >
Text File  |  1999-05-24  |  364b  |  18 lines
  1. REBOL [
  2.     Title:   "test.r"
  3.     Date:    11-may-1999
  4.     Purpose: "Hello world for hserv rebol cgi test"
  5. ]
  6.  
  7. a: string! %a
  8.  
  9. print "Content-type: text/html"
  10. print ""
  11.  
  12. print "<html><head><title>ARexx CGI</title></head>"
  13. print "<body><h1><strong>Hi World from Rebol!</strong></h1></body>"
  14. if system/script/args [
  15.     foreach arg system/script/args [print arg]
  16. ]
  17. print "</html>"
  18.